home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / search_r.sit / Search & Replace / card_2924.txt < prev    next >
Encoding:
Text File  |  1988-01-25  |  452 b   |  27 lines
  1. -- card: 2924 from stack: in
  2. -- bmap block id: 2451
  3. -- flags: 0000
  4. -- background id: 2586
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   repeat with x=1 to 10
  9.     if the mouse is up then
  10.       wait 50 ticks
  11.     else
  12.       mouseUp
  13.       exit openCard
  14.     end if
  15.   end repeat
  16.   visual effect dissolve
  17.   go card 2
  18. end openCard
  19.  
  20. on mouseUp
  21.   get the number of this card
  22.   if it is 1 then
  23.     visual effect dissolve
  24.     go card 2
  25.   end if
  26. end mouseUp
  27.